home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / gawk-3.000 / gawk-3 / gawk-3.0.0 / test / inftest.awk < prev    next >
Encoding:
AWK Script  |  1993-10-20  |  101 b   |  6 lines
  1. BEGIN {
  2.   x = 100
  3.   do { y = x ; x *= 1000; print x,y } while ( y != x )
  4.   print "loop terminated"
  5. }
  6.